IF INSTR (LEN (TEMPDINER$) - 1, TEMPDINER$, "\") = 0 THEN
TEMPDINER$ = TEMPDINER$ + "\"
ENDIF
'' make sure path has a drive letter and drive letter is valid
sz$ = MID$ (TEMPDINER$, 2, 1)
IF sz$ <> ":" THEN
i% = DoMsgBox ("You must specify a valid drive letter in the path name.", "Imagination Express Setup", MB_ICONHAND + MB_OK)
GOTO GETDINERPATH
ENDIF
sz$ = MID$ (TEMPDINER$, 1, 1)
IF IsDriveValid (sz$) = 0 THEN
i% = DoMsgBox ("You must specify a valid drive letter in the path name.", "Imagination Express Setup", MB_ICONHAND + MB_OK)
GOTO GETDINERPATH
ENDIF
'' make sure path is valid
IF IsDirWritable (TEMPDINER$) = 0 THEN
i% = DoMsgBox (TEMPDINER$ + " is not a valid path name.", "Imagination Express Setup", MB_ICONHAND + MB_OK)
GOTO GETDINERPATH
ENDIF
UIPop 1
DESTDINER$ = TEMPDINER$
GOTO INITCOPYLISTFORESTIMATE
ENDIF
UIPop 1
CHECKSPACE:
' IF sizereq& <> 0 THEN
' i% = DoMsgBox ("Not enough free space on drive. Please delete some files to free up space or choose a different destination drive.", "Imagination Express Setup", MB_ICONHAND + MB_OK)
i% = DoMsgBox ("Not enough free space on destination drive. Please delete some files to free up space or choose a different destination drive.", "Imagination Express Setup", MB_ICONHAND + MB_OK)
i% = DoMsgBox ("Not enough free space on windows drive. Please delete some files to free up space and run Setup again.", "Imagination Express Setup", MB_ICONHAND + MB_OK)
dummy% = DoMsgBox ("Windows cannot be restarted because MS-DOS applications are active. Close all MS-DOS applications and then click OK.", "Imagination Express", MB_OK + MB_ICONHAND)